home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Leser 15 / Amiga Plus Leser CD 15.iso / Tools / Development / BlitzGTFix / BBGTLib_Examples / gtbutton.bb2 < prev    next >
Encoding:
Text File  |  2002-03-13  |  831 b   |  42 lines
  1. WbToScreen 3
  2. Use Screen 3
  3.  
  4. LoadFont 2,"garnet.font",9
  5. Use IntuiFont 2
  6.  
  7.  
  8. ; DONT USE COMMANDS WHICH USE A3 AS A PARAMETER DIRECTLY WITH HEX$
  9. ; COS IT GOES SCREWY
  10.  
  11.  
  12. foo.l=GTButton(0,1,20,20,100,15,"Normal",#PLACETEXT_IN)
  13. NPrint Hex$(foo)
  14.  
  15. foo.l=GTButton(0,2,20,40,100,15,"Disabled",#PLACETEXT_IN|$40)
  16. NPrint Hex$(foo)
  17.  
  18. foo.l=GTButton(0,3,20,60,100,15,"Immediate",#PLACETEXT_IN|$80)
  19. NPrint Hex$(foo)
  20.  
  21. foo.l=GTButton(0,4,20,80,100,15,"Toggle",#PLACETEXT_IN|$2000)
  22. NPrint Hex$(foo)
  23.  
  24. AddIDCMP #IDCMP_GADGETDOWN
  25.  
  26. Window 0,0,0,400,300,$100f,"jjlk",-1,-1
  27. DefaultOutput
  28.  
  29. AttachGTList 0,0
  30. While ev.l<>#IDCMP_CLOSEWINDOW
  31.     ev.l=WaitEvent
  32.     Select ev
  33.         Case #IDCMP_GADGETDOWN
  34.             NPrint "Gadget down - ",GadgetHit
  35.         Case #IDCMP_GADGETUP
  36.             NPrint "Gadget up - ",GadgetHit
  37.     End Select
  38. Wend
  39. DetachGTList 0
  40. End
  41.  
  42.